home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Interactive Media Design Review 1999
/
Interactive Media Design Review 1999.iso
/
pc
/
Demos
/
Herois
/
Codigo.Cst
/
00206_Script_MM Tools
< prev
next >
Wrap
Text File
|
1999-03-19
|
3KB
|
114 lines
on melhoresEmbaralha
global gMelhoresTabela, gNumMelhores
set gMelhoresTabela = [ 2000, 2001, 2002, 2003, 2004, 2005,¼
2006, 2007, 2008 ]
set gNumMelhores = 1
repeat with i = 1 to 9
set j = random(9)
if j <> i then
set tmp = getAt(gMelhoresTabela,i)
setAt(gMelhoresTabela, i, getAt(gMelhoresTabela,j))
setAt(gMelhoresTabela, j, tmp)
end if
end repeat
end
on vaiMelhores arqNum
if arqNum = 0 then
go frame "Melhores Momentos"
else
set arqNum = 2005
-- Empilha pagina visitada
empilhaArq arqNum
case arqNum of
2000: go frame "Marvel"
2001: go frame "Missao"
2002: go frame "JQuest"
2003: go frame "Japas"
2004: go frame "ArquivosX"
2005: go frame "Phantom"
2006: go frame "Hades"
2007: go frame "Jurassic"
2008: go frame "Hercules"
end case
sendAllSprites(#stopBola)
global gDonde
if gDonde <> 2000 then
sendAllSprites(#bolaAleatoria)
end if
sendSprite(120, #comecaAnima)
updateStage
-- Inicializa links
global gLinks
global gLinksCount, gLinksTable, gLinksDest, gLinksTitle
mSetCriteria(gLinks,"arqNum","=",arqNum)
mSelect(gLinks)
set gLinksCount = mSelectCount(gLinks)
set gLinksTable = []
set gLinksDest = []
set gLinksTitle = []
if gLinksCount > 0 then
set links = gLinksCount
set gLinksCount = 0
repeat with i = 1 to links
sendSprite(120,#idleClaquete)
-- Le registro de link
set mNum = mGetField(gLinks, "mediaNum")
set sNum = mGetField(gLinks, "subtitNum")
set pNum = mGetField(gLinks, "palNum")
set destArq = mGetField(gLinks,"destArq")
-- Coloca registro na tabela
set tmp = String(mNum) & "," & String(sNum) & "," &¼
String(pNum)
add gLinksTable, tmp
add gLinksDest, destArq
mGoNext(gLinks)
end repeat
end if
sendSprite(120,#finalizaAnima)
updateStage
end if
end
on MMVaiFotos frm, pulo, sprIni, sprFim
sendSprite(120, #comecaAnima)
updateStage
global gPronde
set gPronde = 2000
sendAllSprites(#cleanSprite)
go frame frm
sendAllSprites(#continueBola)
if pulo <> 0 then
repeat with i = sprIni to sprFim
sendSprite(i, #moveRel, pulo)
end repeat
end if
sendSprite(120, #finalizaAnima)
updateStage
end
on MMVaiFotosLimitado frm, n
sendSprite(120, #comecaAnima)
updateStage
global gPronde
set gPronde = 2000
sendAllSprites(#cleanSprite)
go marker(frm & String(n))
sendAllSprites(#continueBola)
sendSprite(120, #finalizaAnima)
updateStage
end